Imports Microsoft.VisualBasic

<Serializable()> _
Public Class userConfig
    Inherits SumarizadorEngine.SumarizadorConfig

    Const COOKIE_CONFIG As String = "Sumarizador.UserSettings"

    Public Sub LoadFromCookies(ByRef myRequest As HttpRequest)
        'Verifica se existe o cookie
        If (myRequest.Cookies(COOKIE_CONFIG) IsNot Nothing) Then
            If (myRequest.Cookies(COOKIE_CONFIG)("_minPalavrasFrase") IsNot Nothing) Then
                MyBase._minPalavrasFrase = myRequest.Cookies(COOKIE_CONFIG)("_minPalavrasFrase")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_pontosEstaNoTitulo") IsNot Nothing) Then
                MyBase._pontosEstaNoTitulo = myRequest.Cookies(COOKIE_CONFIG)("_pontosEstaNoTitulo")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_pontosMaisFrequentes") IsNot Nothing) Then
                MyBase._pontosMaisFrequentes = myRequest.Cookies(COOKIE_CONFIG)("_pontosMaisFrequentes")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_pontosPalavrasDefinicao") IsNot Nothing) Then
                MyBase._pontosPalavrasDefinicao = myRequest.Cookies(COOKIE_CONFIG)("_pontosPalavrasDefinicao")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_pontosPrimeiras") IsNot Nothing) Then
                MyBase._pontosPrimeiras = myRequest.Cookies(COOKIE_CONFIG)("_pontosPrimeiras")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_qtdMaisFrequentes") IsNot Nothing) Then
                MyBase._qtdMaisFrequentes = myRequest.Cookies(COOKIE_CONFIG)("_qtdMaisFrequentes")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_qtdPrimeiras") IsNot Nothing) Then
                MyBase._qtdPrimeiras = myRequest.Cookies(COOKIE_CONFIG)("_qtdPrimeiras")
            End If
            If (myRequest.Cookies(COOKIE_CONFIG)("_pontosTermoPesquisa") IsNot Nothing) Then
                MyBase._pontosTermoPesquisa = myRequest.Cookies(COOKIE_CONFIG)("_pontosTermoPesquisa")
            End If


        End If
    End Sub

    Public Sub SaveIntoCookie(ByRef myResponse As HttpResponse)
        Dim myCookie As HttpCookie = New HttpCookie(COOKIE_CONFIG)

        With myCookie
            .Item("_minPalavrasFrase") = MyBase._minPalavrasFrase
            .Item("_pontosEstaNoTitulo") = MyBase._pontosEstaNoTitulo
            .Item("_pontosMaisFrequentes") = MyBase._pontosMaisFrequentes
            .Item("_pontosPalavrasDefinicao") = MyBase._pontosPalavrasDefinicao
            .Item("_pontosPrimeiras") = MyBase._pontosPrimeiras
            .Item("_qtdMaisFrequentes") = MyBase._qtdMaisFrequentes
            .Item("_qtdPrimeiras") = MyBase._qtdPrimeiras
            .Item("_pontosTermoPesquisa") = MyBase._pontosTermoPesquisa
            .Expires = Now.AddDays(1)
        End With
        myResponse.Cookies.Add(myCookie)

    End Sub
End Class
